unit UnitRelMesaMesPosto;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RLReport, DB, ADODB, TeEngine, Series, ExtCtrls, TeeProcs,
  Chart, DbChart, dxExEdtr, dxTL, dxDBCtrl, dxDBGrid, dxCntner;

type
  TRelMesaMesPosto = class(TForm)
    DataSource1: TDataSource;
    qryConsulta: TADOQuery;
    qryConsultaCODIGO: TIntegerField;
    qryConsultaTOTAL: TIntegerField;
    qryConsultaANOMES: TStringField;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1CODIGO: TdxDBGridMaskColumn;
    dxDBGrid1TOTAL: TdxDBGridMaskColumn;
    dxDBGrid1ANOMES: TdxDBGridMaskColumn;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  RelMesaMesPosto: TRelMesaMesPosto;

implementation

uses UnitPrincipal;

{$R *.dfm}

procedure TRelMesaMesPosto.FormShow(Sender: TObject);
begin
  qryConsulta.Open;
end;

procedure TRelMesaMesPosto.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  qryConsulta.Close;
end;

end.
